home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / libcruft / misc / d1mach.f < prev    next >
Text File  |  1997-08-20  |  952b  |  28 lines
  1. * d1mach.f  Do not edit.  Generated automatically by gen-d1mach.c
  2.       double precision function d1mach(i)
  3.       integer i
  4.       integer i1var (2)
  5.       integer i2var (2)
  6.       integer i3var (2)
  7.       integer i4var (2)
  8.       integer i5var (2)
  9.       double precision dmach(5)
  10.       equivalence (dmach(1), i1var(1))
  11.       equivalence (dmach(2), i2var(1))
  12.       equivalence (dmach(3), i3var(1))
  13.       equivalence (dmach(4), i4var(1))
  14.       equivalence (dmach(5), i5var(1))
  15.       data i1var(1), i1var(2) / 0 , 1048576 /
  16.       data i2var(1), i2var(2) / -1 , 2146435071 /
  17.       data i3var(1), i3var(2) / 0 , 1017118720 /
  18.       data i4var(1), i4var(2) / 0 , 1018167296 /
  19.       data i5var(1), i5var(2) / 1352628735 , 1070810131 /
  20.       if (i .lt. 1  .or.  i .gt. 5) goto 999
  21.       d1mach = dmach(i)
  22.       return
  23.   999 write(*,1999) i
  24.  1999 format(' d1mach - i out of bounds', i10)
  25.       call xstopx (' ')
  26.       d1mach = 0
  27.       end
  28.